Imports System.Data.SqlClient
Public Class LeaveTimes
    Public Shared Function GetLeavTime() As DataTable

        App.Str = " SELECT LEAVE_ID,EMPLOYEE_NAME=ENGLISH_NAME +' ( '+KHMER_NAME+' )',LEAVE_DATE,LEAVE_TYPE,REASON,NOTE,MODIFY_BY,ACTIVE FROM  VIEW_LEAVE_TIME  WHERE ACTIVE=1 ORDER BY LEAVE_ID ASC "
        Try


            Dim dataAdapter As SqlDataAdapter
            dataAdapter = New SqlDataAdapter(App.Str, CType(Dbinterface.Connection, SqlConnection))
            Dim dataTable As DataTable = New DataTable()
            dataAdapter.Fill(dataTable)
            Return dataTable
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Return Nothing
        End Try
    End Function

End Class